home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm1.d64 / loadstar forms (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  105 lines
  1. 10 POKE53280,1:POKE53281,1:CR$=CHR$(13):S$="     "
  2. 11 PRINTCHR$(142)"[147][152]"
  3. 12 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
  4. 13 PRINT"  [221]-[221]-------------------------------[221]-[221]"
  5. 14 FORI=0TO8
  6. 15 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
  7. 16 PRINT"  [221] [221]"SPC(31)"[221] [221]"
  8. 17 NEXT
  9. 18 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
  10. 19 PRINT"  [221]-[221]-------------------------------[221]-[221]"
  11. 20 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
  12. 25 PRINT""TAB(10)"[152]LOADSTAR FORMS PRINTER"
  13. 26 PRINTTAB(10)"[152]-------- ----- -------"
  14. 30 PRINTTAB(6)"1) [151]PRINT SUBMISSION FORM"
  15. 40 PRINTTAB(6)"[152]2) [151]PRINT SUBSCRIPTION FORM"
  16. 50 PRINTTAB(6)"[152]3) [151]RETURN TO LOADSTAR BRIEFS":POKE198,.
  17. 55 PRINTTAB(8)"    [152]PRESS 1, 2 OR 3."
  18. 60 GETA$:IFA$<"1"ORA$>"3"THEN60
  19. 70 IFA$="2"THEN2000
  20. 80 IFA$="3"THEN5000
  21. 90 :
  22. 1000 GOSUB3000:IFNOT(OK)THEN10
  23. 1010 GOSUB4000:IF(AB)THEN10
  24. 1020 OPEN4,4,7
  25. 1030 PRINT#4,S$;SPC(27)"[211][207][198][212][196][201][211][203], [201]NC."
  26. 1040 PRINT#4,S$;SPC(23)"[193]TTENTION: [211]UBMISSIONS"
  27. 1050 PRINT#4,S$;SPC(27)"[208].[207]. [194]OX 30008"CR$
  28. 1060 PRINT#4,S$;SPC(22)"[208][210][207][199][210][193][205] [211][213][194][205][201][211][211][201][207][206] [198][207][210][205]"CR$
  29. 1070 PRINT#4,S$;"[212]HANK YOU FOR YOUR SUBMISSION.  [197]ACH SUBMISSION RECEIVES"
  30. 1080 PRINT#4,S$;"CAREFUL EVALUATION AND CONSIDERATION.  [201]T IS OUR GOAL TO"
  31. 1090 PRINT#4,S$;"PUBLISH HIGH QUALITY MATERIAL THAT WILL BE OF BENEFIT AND"
  32. 1100 PRINT#4,S$;"USE TO OUR READERS."CR$
  33. 1110 PRINT#4,S$;"[208]LEASE COMPLETE THIS FORM AND RETURN IT TO US ALONG WITH"
  34. 1120 PRINT#4,S$;"YOUR SUBMISSION.  [212]HIS INFORMATION WILL HELP US IN EVALUATING"
  35. 1130 PRINT#4,S$;"YOUR WORK.  [208]LEASE TYPE OR PRINT CLEARLY."CR$
  36. 1140 PRINT#4,S$;SPC(25)"[193][194][207][213][212] [212][200][197] [193][213][212][200][207][210]:"CR$
  37. 1150 PRINT#4,S$;"[206]AME:........................ [211]OCIAL [211]ECURITY #:............"CR$
  38. 1160 PRINT#4,S$;"[193]DDRESS....................................................."CR$
  39. 1170 PRINT#4,S$;"[195]ITY:................... [211]TATE:....... [218][201][208]:................."CR$
  40. 1180 PRINT#4,S$;"[212]ELEPHONE - [196][193][217]:................ [197][214][197][206][201][206][199]:..................."CR$CR$
  41. 1190 PRINT#4,S$;SPC(24)"[193][194][207][213][212] [212][200][197] [211][213][194][205][201][211][211][201][207][206]:"CR$
  42. 1200 PRINT#4,S$;"[195]OMPUTER:   ........ [195]OMMODORE 64    ........ [195]OMMODORE 128"CR$
  43. 1205 PRINT#4,S$;"[198]ORMAT:     ........ 40 COLUMN       ........ 80 COLUMN"CR$
  44. 1210 PRINT#4,S$;"[206]AME OF SUBMISSION:........................................."CR$
  45. 1220 PRINT#4,S$;"[208]ROGRAMMING LANGUAGES USED:................................."CR$
  46. 1230 PRINT#4,S$;"[211]TART-UP FILENAME:.........................................."CR$
  47. 1240 PRINT#4,S$;"[198]ILES USED:................................................."CR$
  48. 1250 PRINT#4,S$;"           ................................................."CR$
  49. 1260 PRINT#4,S$;"[208]URPOSE:...................................................."CR$CR$
  50. 1270 PRINT#4,S$;"[201], ............................, HEREBY CERTIFY THAT AS OF"
  51. 1280 PRINT#4,S$;".................. THE SUBMISSION DESCRIBED ABOVE AND IN THE"
  52. 1290 PRINT#4,S$;"ACCOMPANYING DOCUMENTATION IS MY OWN ORIGINAL WORK AND THAT"
  53. 1300 PRINT#4,S$;"IT HAS NOT BEEN PREVIOUSLY PUBLISHED AND IS NOT CURRENTLY"
  54. 1310 PRINT#4,S$;"UNDER CONSIDERATION BY ANOTHER PUBLISHER."CR$
  55. 1320 PRINT#4,S$;"[206][207][212][197]: [193]DVENTURE GAMES REQUIRE COMPLETE MAPS AND COMPLETE"
  56. 1330 PRINT#4,S$;"SOLUTIONS.  [211]OURCE CODE [205][213][211][212] ACCOMPANY MACHINE LANGUAGE"
  57. 1340 PRINT#4,S$;"FILES.  [211]UBMISSIONS MUST BE ON A 5 1/4"CHR$(34)" DISK.  [208]ROGRAMS MUST"
  58. 1350 PRINT#4,S$;"INCLUDE ALL FILES NECESSARY TO RUN THEM (THIS INCLUDES"
  59. 1360 PRINT#4,S$;"DOCUMENTATION ON USE OF THE PROGRAM)."CR$
  60. 1370 PRINT#4,S$;"[193]LL SUBMISSIONS (DISKS AND ACCOMPANYING PRINTED MATERIAL)"
  61. 1380 PRINT#4,S$;"[205][213][211][212] BE LABELED WITH THE AUTHOR'S NAME, COMPLETE ADDRESS,"
  62. 1390 PRINT#4,S$;"TELEPHONE NUMBER(S), SUBMISSION NAME AND TYPE OF COMPUTER."
  63. 1410 PRINT#4:CLOSE4:GOTO10
  64. 2000 GOSUB3000:IFOK=0THEN10
  65. 2010 GOSUB4000:IF(AB)THEN10
  66. 2020 OPEN4,4,7
  67. 2022 PRINT#4,SPC(25)"[204][207][193][196][211][212][193][210] [211]UBSCRIPTION [210]ATES"CR$CR$
  68. 2024 PRINT#4,SPC(8)"[196][207][205][197][211][212][201][195]"SPC(15)"[195][193][206][193][196][193] AND [205][197][216][201][195][207]"SPC(10)"[207][212][200][197][210] [198][207][210][197][201][199][206]"
  69. 2026 PRINT#4
  70. 2028 PRINT#4,"..... 3 ISSUES - $19.95"SPC(4)"..... 3 ISSUES - $24.95";
  71. 2030 PRINT#4,SPC(3)"..... 3 ISSUES - $27.95"CR$
  72. 2032 PRINT#4,"..... 6 ISSUES - $39.95"SPC(4)"..... 6 ISSUES - $49.95";
  73. 2034 PRINT#4,SPC(3)"..... 6 ISSUES - $59.95"CR$
  74. 2044 PRINT#4,SPC(23)"[204]OUISIANA RESIDENTS ADD 4% SALES TAX."CR$CR$CR$
  75. 2046 PRINT#4,SPC(30)"[208][204][197][193][211][197] [208][210][201][206][212]"CR$CR$
  76. 2048 PRINT#4,SPC(15)"[206]AME:........................................."CR$
  77. 2050 PRINT#4,SPC(15)"[193]DDRESS:......................................"CR$
  78. 2052 PRINT#4,SPC(15)"[195]ITY:........................................."CR$
  79. 2054 PRINT#4,SPC(15)"[211]TATE AND [218][201][208]:................................"CR$CR$
  80. 2060 PRINT#4,SPC(15)"......[205]ASTERCARD"SPC(10)"......[196][201][211][195][207][214][197][210]"CR$
  81. 2062 PRINT#4,SPC(15)"......[214][201][211][193]"SPC(16)"......[193]MERICAN [197]XPRESS"CR$CR$
  82. 2064 PRINT#4,SPC(15)"[195]ARD [206]UMBER:............................."CR$
  83. 2066 PRINT#4,SPC(15)"[197]XPIRATION [196]ATE:........................."CR$CR$CR$
  84. 2068 PRINT#4,SPC(15)"[211]IGNATURE:..............................."CR$
  85. 2100 PRINT#4:CLOSE4:GOTO10
  86. 3000 OK=0:OPEN15,4,15:CLOSE15
  87. 3010 IFST=0THENOK=-1:RETURN
  88. 3030 PRINT"ERROR:  PRINTER NOT READY!"
  89. 3040 FORA=1TO2000:NEXT:RETURN
  90. 3050 :
  91. 4000 PRINT"SET PRINTER TO TOP OF PAPER "
  92. 4010 PRINT"      PRESS SPACE TO PRINT"
  93. 4015 PRINT"         OR A TO ABORT"
  94. 4020 GETA$:IFA$<>"A"ANDA$<>" "THEN4020
  95. 4030 AB=.:IFA$="A"THENAB=-1
  96. 4040 RETURN
  97. 4050 :
  98. 5000 POKE53281,0
  99. 5010 OPEN15,8,15,"R0:LS BRIEFS=LS BRIEFS":INPUT#15,ER:CLOSE15
  100. 5020 IFER<>63THENEND
  101. 5030 PRINT"[147][144]LOAD"CHR$(34)"LS BRIEFS"CHR$(34)",8"
  102. 5040 PRINT"RUN"
  103. 5050 POKE631,13:POKE632,13:POKE198,2:END
  104. 10000 OPEN15,8,15,"S0:LOADSTAR FORMS":CLOSE15:SAVE"LOADSTAR FORMS",8:END
  105.